home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Highspeed pascal.adf / Interface / Audio.pas < prev    next >
Pascal/Delphi Source File  |  1992-01-16  |  897b  |  50 lines
  1. Unit Audio;
  2.  
  3. Interface
  4. Uses Exec;
  5.  
  6. Type
  7.   tIOAudio = Record
  8.           ioa_Request: tIORequest;
  9.           ioa_AllocKey: Integer;
  10.           ioa_Data: pShortInt;
  11.           ioa_Length: LongInt;
  12.           ioa_Period: Integer;
  13.           ioa_Volume: Integer;
  14.           ioa_Cycles: Integer;
  15.           ioa_WriteMsg: tMessage;
  16.         End;
  17.  
  18.  
  19.  
  20. Const
  21.   ADCMD_PERVOL = $C;
  22.   ADIOB_NOWAIT = $6;
  23.   ADALLOC_MINPREC = $FFFFFF80;
  24.   ADCMD_WAITCYCLE = $E;
  25.   ADIOF_NOWAIT = $40;
  26.   ADALLOC_MAXPREC = $7F;
  27.   ADIOB_PERVOL = $4;
  28.   ADCMD_ALLOCATE = $20;
  29.   ADIOF_PERVOL = $10;
  30.   ADIOB_SYNCCYCLE = $5;
  31.   ADCMD_FREE = $9;
  32.   ADIOF_SYNCCYCLE = $20;
  33.   ADCMD_LOCK = $D;
  34.   ADIOB_WRITEMESSAGE = $7;
  35.   ADIOF_WRITEMESSAGE = $80;
  36.   AUDIONAME = 'audio.device';
  37.   ADCMD_SETPREC = $A;
  38.   ADIOERR_CHANNELSTOLEN = $FFFFFFF4;
  39.   ADCMDB_NOUNIT = $5;
  40.   ADCMDF_NOUNIT = $20;
  41.   ADCMD_FINISH = $B;
  42.   ADIOERR_ALLOCFAILED = $FFFFFFF5;
  43.   ADHARD_CHANNELS = $4;
  44.   ADIOERR_NOALLOCATION = $FFFFFFF6;
  45.  
  46.  
  47.  
  48.  
  49. End.
  50.